Xbasic

{BEGINEMBEDDED}

Syntax

{BEGINEMBEDDED} ... Xdialog Code ... {ENDEMBEDDED}

Description

The {BEGINEMBEDDED} command allows you to embed an Xdialog within another Xdialog with in-line code, rather than using the {EMBEDDED} command to define a window within the parent xdialog in which the embedded dialog will be displayed.

Example

The following example embeds the data entry fields and Inside button (to the right of the list box).

dim lv as P
dim pe as P
lv = local_variables()
people=<<%str%
Kerry
Aaron
Jay
Claire
Ethel
%str%
ui_dlg_box("{BEGINEMBEDDED}",<<%dlg%
{stretch=width}
[.40,10name^#people]
{hslider}
{beginembedded}
{stickto=left}
Name|{stretch=width}[.20Name];
{stickto=left}Company|{stretch=width}[.30Company];
{stickto=left}Address|{stretch=width}[.30Address1];
|[.30Address2];
|[.15City]{stickto=right}[.3Atate][.9ZIP];
{stickto=left}<Inside>
{endembedded};
{stretch=width}
{line=1,0};
{stickto=left,bottom}
<Ok>
%dlg%,<<%code%
if a_dlg_button = "Inside" then
    pe = *for_each(i,i+" = "+eval(i),properties_enum(lv))
    a_dlg_button = ""
    ui_msg_box("event",pe)
    delete pe
end if
%code%)

Limitations

Desktop applications only